;; Returns a list of the first n fibonacci sequence elements
;; In this case the fibonacci sequence starts with 0 
;; if you would like it to start with the first one change collect a to collect b
(defun fib-seq (n)
  (loop repeat n  
            for a = 0 then b 
            and b = 1 then (+ a b)
            collect a))